100 CLR:DIMTS$(5):DIMB1(5):DIMB2(5):DIMF(5):TR=-1:REM -1:ON, 0:OFF
110 TS$(1)="17 02":B1(1)=194:B2(1)=15:F(1)=1
120 TS$(2)="17 17":B1(2)=247:B2(2)=12:F(2)=2
130 TS$(3)="07 05":B1(3)=96:B2(3)=14:F(3)=2
140 TS$(4)="17 17":B1(4)=139:B2(4)=15:F(4)=3
150 TS$(5)="07 05":B1(5)=232:B2(5)=12:F(5)=3
160 FORI=1TO5
170 IFF<>F(I)THENGOSUB250
180 OPEN2,8,15:OPEN1,8,2,"#"
190 PRINT#2,"U1 2 0 "TS$(I)
200 PRINT#2,"B-P 2 187"
210 IFTRTHENPRINT#1,CHR$(249)CHR$(76)CHR$(138)CHR$(B1(I))CHR$(B2(I));
220 IFNOTTRTHENPRINT#1,CHR$(186)CHR$(3)CHR$(237)CHR$(10)CHR$(148);
230 PRINT#2,"U2 2 0 "TS$(I)
240 F=F(I):CLOSE2:CLOSE1:NEXT:END
250 PRINT"INSERT DISK - SIDE"F(I)CHR$(13)"PRESS ANY KEY !"
260 POKE198,0:WAIT198,1:POKE198,0:RETURN